home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / rxasl.lha / rxasl / examples / file.rexx next >
Encoding:
OS/2 REXX Batch file  |  2000-11-07  |  324 b   |  20 lines
  1. /*
  2.     ReqFile()
  3. */
  4.  
  5. a.DoPatterns    = 1
  6. a.Drawer        = "RAM:"
  7. a.Pattern        = "#?"
  8.  
  9. res = ReqFile("A")
  10. if res==0 then do
  11.     say "LeftEdge:" a.LeftEdge
  12.     say "TopEdge: " a.TopEdge
  13.     say "Width:   " a.Width
  14.     say "Height:  " a.Height
  15.     say "File:    " a.File
  16.     say "Drawer:  " a.Drawer
  17.     say "Pattern: " a.Pattern
  18.     say "NumArgs: " a.NumArgs
  19. end
  20.